home *** CD-ROM | disk | FTP | other *** search
/ Amiga News 95 / Amiga News 95.iso / dpat / dpat94 / rexx / sendtexte.rexx < prev    next >
OS/2 REXX Batch file  |  1995-01-23  |  2KB  |  82 lines
  1. /*-----------------------------------*/
  2. /* SendTexte.rexx v1.1   © 1995 Ldfa */
  3. /*                                   */
  4. /*  Envoi filtré d'un fichier Ascii  */
  5. /*  sur un serveur pour AmiTEL 2.1   */
  6. /*                                   */
  7. /*-----------------------------------*/
  8.  
  9. NL        = '0a'x
  10. Return        = '0d'x
  11. Envoi        = '13 41'x
  12. Retour        = '13 42'x
  13. Repetition    = '13 43'x
  14. Guide        = '13 44'x
  15. Annulation    = '13 45'x
  16. Sommaire    = '13 46'x
  17. Correction    = '13 47'x
  18. Suite        = '13 48'x
  19.  
  20. ADDRESS AMITEL_REXX
  21.  
  22. OPTIONS results
  23.  
  24. REQINFO "Ce programme permet d'envoyer un fichier" || NL,
  25.     "Ascii préparé à l'avance sur un serveur" || NL,
  26.     "en filtrant les caractères acentués." || NL,
  27.     "Voulez vous continuer?"
  28.  
  29. if RESULT == 0 then exit
  30.  
  31. REQFILE "Nom du Fichier à envoyer"
  32.  
  33. if RESULT == "RESULT" then exit
  34.  
  35. Success = open('Fichier',RESULT,'R')
  36.  
  37. if Success == 0 then
  38.    do
  39.       REQINFO "Fichier non trouvé!"
  40.       exit
  41.    end
  42.  
  43. do while eof('Fichier') == 0
  44.    Char = readch('Fichier',1)
  45.    select
  46.       when Char = '0a'x then DELAY 2
  47. /*         do                */
  48. /*            REQINFO "Ligne suivante?"    */
  49. /*            if RESULT == 0 then exit    */
  50. /*            SEND Suite        */
  51. /*         end                */
  52.       when Char = '£'   then SEND '19 23'x
  53.       when Char = '§'   then SEND '19 27'x
  54.       when Char = '°'   then SEND '19 30'x
  55.       when Char = '±'   then SEND '19 31'x
  56.       when Char = '÷'   then SEND '19 38'x
  57.       when Char = '¼'   then SEND '19 3c'x
  58.       when Char = '½'   then SEND '19 3d'x
  59.       when Char = '¾'   then SEND '19 3e'x
  60.       when Char = 'à'   then SEND '19 41 61'x
  61.       when Char = 'è'   then SEND '19 41 65'x
  62.       when Char = 'ù'   then SEND '19 41 75'x
  63.       when Char = 'é'   then SEND '19 42 65'x
  64.       when Char = 'â'   then SEND '19 43 61'x
  65.       when Char = 'ê'   then SEND '19 43 65'x
  66.       when Char = 'î'   then SEND '19 43 69'x
  67.       when Char = 'ô'   then SEND '19 43 6f'x
  68.       when Char = 'û'   then SEND '19 43 75'x
  69.       when Char = 'ä'   then SEND '19 48 61'x
  70.       when Char = 'ë'   then SEND '19 48 65'x
  71.       when Char = 'ï'   then SEND '19 48 69'x
  72.       when Char = 'ö'   then SEND '19 48 6f'x
  73.       when Char = 'ü'   then SEND '19 48 75'x
  74.       when Char = 'ç'   then SEND '19 4b 63'x
  75.       when Char = 'ß'   then SEND '19 7b'x
  76.       otherwise              SEND Char
  77.    end
  78. end
  79.  
  80. REQINFO "Envoi du fichier terminé."
  81.  
  82.